home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / BlitzList / BlitzListFiles / hspr / hiressprites
Encoding:
Text File  |  1998-04-16  |  854 b   |  46 lines
  1.  
  2. DEFTYPE.w:WBStartup
  3.  
  4. #TAG_DONE=0
  5.  
  6. #SPRITERESN_ECS=0
  7. #SPRITERESN_140NS=1
  8. #SPRITERESN_70NS=2
  9. #SPRITERESN_35NS=3
  10. #SPRITERESN_DEFAULT=-1
  11.  
  12. #VTAG_SPRITERESN_SET=$80000031
  13.  
  14. NEWTYPE .taglist
  15.   ti_tag.l:ti_data
  16. End NEWTYPE
  17.  
  18. ScreenTags 0,"hello"
  19.  
  20. scradr.l=Peek.l(Addr Screen(0))
  21. cmapadr.l=Peek.l(scradr+48)        ;screen->viewport->colourmap
  22.  
  23. If cmapadr=0 Then NPrint "ERROR: No Colourmap":End    ;shouldn't happen really
  24.  
  25. Dim tags.taglist(1)
  26.  
  27. tags(0)\ti_tag=#VTAG_SPRITERESN_SET,#SPRITERESN_35NS
  28. tags(1)\ti_tag=#TAG_DONE
  29.  
  30. ;make hires
  31.  
  32. VideoControl_ cmapadr,&tags(0)        ;set our video tags
  33. MakeScreen_ scradr:RethinkDisplay_    ;and reshow our screen
  34.  
  35. MouseWait
  36.  
  37. ;make lores
  38.  
  39. tags(0)\ti_tag=#VTAG_SPRITERESN_SET,#SPRITERESN_DEFAULT
  40.  
  41. VideoControl_ cmpadr,&tags(0)         ;set our video tags
  42. MakeScreen_ scradr:RethinkDisplay_    ;and reshow our screen
  43.  
  44. End
  45.  
  46.